VS_NotPos()          VALID clause to ensure number is not positive

Description:

  VS_NotPos() provides the programmer with a cosmetically appealing
  "pop-up" validation box.

Syntax:     

  l_Valid = VS_NotPos( n_Value , [@l_Eating] )

Pass:       

  n_Value is a numeric value containing the number to ensure is not
  positive.

  l_Eating is an optional logical expression that can be used in
  place of VS_EatKeys().

Return:     

  l_Valid is a logical expression that will be set to .T. if
  n_Value is NOT positive, otherwise .F.  If l_Valid is .F.,
  VS_NotPos() will display a cosmetically appealing pop-up error box
  telling the user that the value cannot be positive.

Notes:      

  VS_NotPos() is non-screen destructive.

Example:    

  n_Value = 0.00
  @ 10,10 SAY "Enter a nmbr: " GET n_Value VALID VS_NotPos(n_Value)
  READ
  ...

Usage:      

  VS_NotPos() is used for the "art" of user interfacing. i.e. it
  provides a pleasant way of informing the user why the VALID clause
  failed.